Aminet 24/Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso/Aminet/text/edit/GED_Hexedit.lha/GED_Hexedit/hex/deutsch/GotoByte.ged

Text File | 1998-01-02 | 1KB | 2 lines

/* Optimized with RexxOpt 1.8 */
OPTIONS RESULTS;if (LEFT(ADDRESS(),6) ~="GOLDED") then;address 'GOLDED.1';'LOCK CURRENT RELEASE=4';if (RC ~=0) then;exit;OPTIONS FAILAT 6;SIGNAL ON SYNTAX;'REQUEST STRING Title="Eingabe" Body="Anzuspringendes Byte eingeben:" Var="Erg"';if (RC ~=0|Erg="") then;do;'UNLOCK';exit;end;Erg=upper(Erg);if left(Erg,1)=="$" then;do;Erg=Right(Erg,length(Erg)-1);if verify(Erg,'0123456789ABCDEF')~=0 then;do;'REQUEST Problem="Es sind nur Hexziffern (0...9 oder a...f) einzugeben"';'UNLOCK';exit;end;end;else;do;if verify(Erg,'0123456789')~=0 then;do;'REQUEST Problem="Es sind nur Ziffern einzugeben"';'UNLOCK';exit;end;Erg=d2x(Erg);end;Zeile=x2d(left(Erg,length(Erg)-1))+1;Spalte1=x2d(right(Erg,1));Spalte=11+Spalte1%4+2*Spalte1;'QUERY Name=Lines Var=GesZeilen';if Zeile<GesZeilen then;do;'GOTO Line='||Zeile||' Column='||Spalte;'UNLOCK';exit;end;if Zeile>GesZeilen then;do;'BEEP';'GOTO Line='||GesZeilen||' Column=1';'UNLOCK';exit;end;'GOTO Line='||GesZeilen||' Column=1';'QUERY Name=Columns Var=GesSpalten';if Spalte1<=GesSpalten-48 then;do;'GOTO Column='||Spalte;'UNLOCK';exit;end;'BEEP';'UNLOCK';exit;SYNTAX:;SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-(";'UNLOCK';exit